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BEGIN : 

i : = N ; START FROM MSB Ll 

Q := 0 ; INITIALIZE ACCUMULATOR L2 

H .= 0 ; INITIALIZE STATE L3 

LOOP : ; FOR ALL BITS 

Q : = 0*0 ; DOUBLE ACCUMULATOR L4 

IF H = 0 ; IFH STATE (S SET L5 

Q : = Q ♦ P ; ADD BASE POINT TO ACCUMULATOR L 6 

GOTO ENDLOOP : L7 

ELSE ; ELSE 

0 : = Q * (-P) ; SUBTRACT BASE POINT LB 

GOTO ENDLOOP ; L9 

ENDLOOP : 

H .= b[t] : SET H STATE TO VALUE OF b [ i ] LIO 

i : = i - I : PROCESS NEXT BIT LM 

IF i>0 ; IF BIT EXISTS LI2 

GOTO LOOP . CONTINUE AT TOP OF LOOP L !3 

IF H = 0 ; IF EXISTING FROM H = 0 STATE L 14 

Q : = Q * (-P) \ CORRECT RESULT BY FINAL SUBTRACT L 15 

END L 16 
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BEGIN : 



i = N 
Q ; r 0 



Q : = Q ♦ Q 
Q : = Q ♦ P 
GOTO ENDLOOP 



START FROM MSB LLl 

INITIALIZE ACCUMULATOR LL2 

STATE ENTRY POINT 

DOUBLE ACCUMULATOR LL3 

ADD BASE POINT TO ACCUMULATOR L L 4 

BRANCH TO END OF LOOP TESTS LL5 



Q . = Q 

0 =0 ♦(-P) 
GOTO ENDLOOP 



STATE ENTRY POINT 
DOUBLE ACCUMULATOR 
SUBTRACT BASE POINT FROM 
ACCUMULATOR 

BRANCH TO END OF LOOP TESTS 



LL6 
LL7 
LL8 



ENDLOOP : 

IF b[i] = l 
GOTO NEXT HO 



END OF LOOP TESTS 
IF CURRENT BIT IS SET 

FOLLOW HO PATH 
ELSE FALL INTO HI PATH 



LL9 
LL 10 



NEXT HI ; 

i : =i-l 
IF i>0 

GOTO HI 
Q . = Q ♦ (-P) 
END 



HI PATH 

PROCESS NEXT BIT 
IF BIT EXISTS 

EXECUTE HI STATE 
ELSE CORRECT RESULT AND END 



LL!I 
LLI2 
LLI3 
LLI^ 
LL 15 



NEXT HO : 

i ; 



-I 



IF i>0 

GOTO HO 
END 



HO PATH 

PROCESS NEXT BIT 
IF BIT EXISTS 

EXECUTE HO STATE 
ELSE END 



LL16 
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BEGIN : 

i : = N 
Q : = I 

HO: 

Q : = Q -a (q2) 
Q : = QM 
GOTO ENDLOOP 

HI : 

Q; =QQ 

Q: =Q/M (Q-M-') 

ENDLOOP : 

IF b{i] =1 GOTO ENDLOOP 



NEXT HI : 

i = i - 1 
IF i>0 
GOTO HI 




60 

NEXT HO : 

i = i - I 
IF i>0 
GOTO HO 
END 
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IF bj = I 

THEN Q-^-Q^/tn 
i = i - I 




IF bj =0 THEN Q-^Q^'m 

i = i - I 
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